    Syntax     label%:=COEFFICIENT(%&expression&{%,%&occurance&}%)% label

    Where       &occurence& is the occcurence number of &expression&.  The
                default value is 1.

    Purpose     Isolates the coefficient of a factor.

    Abbreviation        COEFF for COEFFICIENT

    %Example%

    þE1 : 4*x*y + 2*x*z
    þE2 := COEFF(x) E1
    E2 : 4*y
    þE3 := COEFF(x,2) E1
    E3 : 2*z

    PROCEDURE Example(INTEGER N ; LABEL L1, L2 ; PARAMETER P) ;
      ITERATE I FROM 1 TO N;
      L2[I]:=COEFF(P) L1[I] ;
    EXIT
